home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / cxbaud01.lha / CXBaud.rexx next >
OS/2 REXX Batch file  |  1996-04-06  |  4KB  |  56 lines
  1. /******************************************************************************
  2.  *                                                                            *
  3.  * PROGRAM:       CXBaud.rexx                                                 *
  4.  *                                                                            *
  5.  * PURPOSE:       Show user's BPS in BIG ANSI and a few stats.                *
  6.  *                                                                            *
  7.  * AUTHOR:        Sune Stjerneby (RubberDuck)                                 *
  8.  *                                                                            *
  9.  * DATE:          06 Apr 96                                           *
  10.  *                                                                            *
  11.  * TIME:          16:08:42                                                    *
  12.  *                                                                            *
  13.  * VERSION:       0                                                           *
  14.  * REVISION:      1                                                           *
  15.  * SUBREVISION:   0                                                           *
  16.  *                                                                            *
  17.  * CNET VERSION:  3.05c - 4.05                                                *
  18.  *                                                                            *
  19.  * LOG:                                                                       *
  20.  *                                                                            *
  21.  *  06 Apr 96 First Version!.                                                 *
  22.  *                                                                            *
  23.  * INSTALLATION:                                                              *
  24.  *                                                                            *
  25.  *  Copy the contents of systext/baud/#? to systext:baud/.                    *
  26.  *                                                                            *
  27.  *  Add this to your SYSTEXT:SYS.WELCOME (or where ever you want it)          *
  28.  *                                                                            *
  29.  *  #0Pfiles:CXBaud.rexx}                                                    *
  30.  *                                                                            *
  31.  *   Another                                                                  *
  32.  *   _____________  _____________  ___________   _____________  _____  ______ *
  33.  *   \_    ______/  \______     /  \_______   \  \_     _____/  \_   \/     / *
  34.  *    /   /     /    /    /    /    /     /   /   /    _____/     \      __/  *
  35.  *   /   /     /    /    /    /    /     /   /   /    /    /      /      \_   *
  36.  * _/   /     /   _/    /    /   _/     /   /  _/    /    /   ___/        /   *
  37.  * \_________/    \_________/    \_________/   \_________/    \______/\__/    *
  38.  *                                                                            *
  39.  *                          P R O D U C T I O N                               *
  40.  *                                                                            *
  41.  *               Call +45 5627-6730     -    28k8 vFC/v34                     *
  42.  *                                                                            *
  43.  ******************************************************************************/
  44.  
  45. options results
  46. getuser 1200018                      /* Get BPS in 3-digit format (24,144,288 etc.) */
  47. bps=result*10".ansi"                 /* Multiplicate with 10 and add .ansi */
  48. changewhere "Showing Baud/Stats"     /* For Sysop's and WHO-users eyes only, changes 'Action' in CNet Controlpanel and WHO command */
  49. if baud<2400 or baud>57600 then exit /* Make sure we have an ANSI for user's BPS. Change values and create new .ansi's if you have many 300 bps users |) (or ISDN) */
  50. bps="systext:baud/"||bps||""         /* 'Compile' file-name by joining path and bps-rate.ansi */
  51. sendfile bps                         /* Show it to user */
  52. sendfile "systext:baud/stats.ansi"   /* ..And a few stats - add your own if you want */
  53. transmit 'n2c4CXBaud v0.1 (C) 06.04.96 by Sune Stjerneby - Codex Amiga BBS  +45 5627 6730' /* Yatta yatta yatta... */
  54. bufferflush                          /* Clean up */
  55. exit                                 /* ...and we're outtahere... */
  56.